#!/usr/bin/env tclsh

#调用 my.tcl
set f [open my.tcl r];#读模式获取 my.tcl文件的句柄
set cmd [read $f];#读取my.tcl文件的内容
eval $cmd  ;#执行读取文件中的tcl指令
close $f ;#关闭文件句柄











